mapa_interactivo

library(leaflet)
library(leaflet.extras)
library(rworldxtra)
library(raster)
library(sf)
library(tidyverse)
library(mapedit)

colombia <- getData("GADM", country = "COL", level = 1)

colombia <- colombia %>% st_as_sf()

colombia <- colombia %>% select(NAME_1, geometry)

colombia_spat <- colombia %>%  as_Spatial()

departamentos <- leaflet() %>% 
        addTiles() %>% 
        addPolygons(data = colombia_spat, 
                    fillColor = topo.colors(16, alpha = NULL), weight = 0.5, 
                    label = ~NAME_1, group = "Departamentos") %>% 
        addDrawToolbar(targetGroup = "nueva area", 
                       editOptions = editToolbarOptions(selectedPathOptions = selectedPathOptions())) %>% 
        addLayersControl(overlayGroups = c("Departamentos", "nueva area"), 
                         options = layersControlOptions(collapsed = TRUE)) %>% 
        addMeasurePathToolbar(options = measurePathOptions(imperial = F, 
                                                           minPixelDistance = 100, showDistances = T)) %>%
        addStyleEditor()

departamentos